home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / STARTUP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  6.1 KB  |  63 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 12  '*****************  START UP PROGRAM FOR BLUEBERRY   ***********************
  3. 14  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 15  'OPEN      BLUEBERRY PIE A LA MODE DISK START UP PROGRAM -- MONO!             OPEN
  5. 16  'OPEN                                                                         OPEN
  6. 17  'OPEN     This is a basic box-formatted introductory program for BLUEBERRY    OPEN
  7. 18  'OPEN  PIE A LA MODE using a High Resolution composite video green monitor    OPEN
  8. 19  'OPEN  or IBM monochrome monitor.  There are some programming techniques      OPEN
  9. 20  'OPEN  which may be of interest to the user.  The various subroutines may     OPEN
  10. 21  'OPEN  be extracted and modified for your own programming use.                OPEN
  11. 22  'OPEN                                                                         OPEN
  12. 23  'OPEN     A COLOR version of this program is filed under STARTUP.CLR. If      OPEN
  13. 24  'OPEN  you are using an 80 column color monitor, you will find CLR of some    OPEN
  14. 25  'OPEN  visual and programming interest. The color combinations will over-     OPEN
  15. 26  'OPEN  drive most green-screen composite video monitors. Use this version     OPEN
  16. 27  'OPEN  instead   This program  may be used without license or attribution.    OPEN
  17. 28  'OPEN               (c)  G I N A C O   1983         Ver 5.2/160/320           OPEN
  18. 31  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  19. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  20. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  21. 60  CLS:FOR I=1 TO 10:KEY I,"":NEXT
  22. 100  KEY OFF:CLEAR:SCREEN 0,0,0:WIDTH 80:GOTO 140
  23. 110  COLOR 7,0
  24. 120  AKEY$=INKEY$:IF AKEY$=""THEN 120
  25. 130  RETURN
  26. 140  CLS:PRINTSTRING$(80,219):COLOR7,0:FORA=1TO22:LOCATEA,1:PRINT"CSRLIN":LOCATEA,80:PRINT"CSRLIN":NEXT:LOCATE23,1:PRINTSTRING$(80,219);:LOCATE5,10:PRINT"CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN   CSRLINCSRLINCSRLIN    CSRLINCSRLINCSRLIN     CSRLINCSRLIN     CSRLINCSRLIN      CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN  CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN":LOCATE6,10
  27. 150  PRINT"CSRLINCSRLIN                  CSRLINCSRLINCSRLIN     CSRLINCSRLIN    CSRLIN  CSRLIN     CSRLINCSRLIN         CSRLINCSRLIN    CSRLINCSRLIN":LOCATE7,10:PRINT"CSRLINCSRLIN           CSRLINCSRLINCSRLIN    CSRLINCSRLIN CSRLIN    CSRLINCSRLIN   CSRLIN    CSRLIN    CSRLINCSRLIN         CSRLINCSRLIN    CSRLINCSRLIN":LOCATE8,10:PRINT"CSRLINCSRLIN           CSRLINCSRLINCSRLIN    CSRLINCSRLIN  CSRLIN   CSRLINCSRLIN  CSRLIN      CSRLIN   CSRLINCSRLIN         CSRLINCSRLIN    CSRLINCSRLIN":LOCATE9,10
  28. 160  PRINT"CSRLINCSRLIN           CSRLINCSRLINCSRLIN    CSRLINCSRLIN   CSRLIN  CSRLINCSRLIN CSRLINCSRLIN      CSRLINCSRLIN  CSRLINCSRLIN         CSRLINCSRLIN    CSRLINCSRLIN":LOCATE10,10:PRINT"CSRLINCSRLIN     CSRLINCSRLINCSRLIN   CSRLINCSRLINCSRLIN    CSRLINCSRLIN    CSRLIN CSRLINCSRLIN CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN  CSRLINCSRLIN         CSRLINCSRLIN    CSRLINCSRLIN":LOCATE11,10:PRINT"CSRLINCSRLIN      CSRLINCSRLIN   CSRLINCSRLINCSRLIN    CSRLINCSRLIN     CSRLINCSRLINCSRLIN CSRLINCSRLIN      CSRLINCSRLIN  CSRLINCSRLIN         CSRLINCSRLIN    CSRLINCSRLIN":LOCATE12,10
  29. 170  PRINT"CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN   CSRLINCSRLINCSRLIN    CSRLINCSRLIN     CSRLINCSRLINCSRLIN CSRLINCSRLIN      CSRLINCSRLIN  CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN  CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN":COLOR7,0:LOCATE15,27:PRINT"***  G  I  N  A  C  O   ***":COLOR7,0:COLOR7,0:LOCATE18,15:PRINT"D E M O N S T R A T I O N    S T A R T   U P   U N I T ":LOCATE19,15
  30. 180  PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN    THENTHENTHENTHENTHENTHENTHENTHENTHEN   THENTHENTHEN   THENTHENTHENTHENTHENTHENTHEN":COLOR7,0:FORI=1TO3000:NEXT:FORI=3TO20:LOCATEI,10:PRINTSPC(66):NEXT:LOCATE4,13:PRINTSTRING$(11,178);STRING$(11,32);STRING$(11,178);STRING$(11,32);STRING$(11,178):FORI=5TO18
  31. 190  COLOR7,0:LOCATEI,10:PRINTCHR$(178);STRING$(59,32);CHR$(178):NEXT:COLOR7,0:LOCATE19,13:COLOR7,0:PRINTSTRING$(11,178);STRING$(11,32);STRING$(11,178);STRING$(11,32);STRING$(11,178):COLOR7,0:LOCATE8,22:COLOR7,0
  32. 200  PRINT"BLUEBERRY PIE A La MODE STARTUP ROUTINE":COLOR 7,0:LOCATE 10,28:COLOR 7,0:PRINT"DEMONSTRATING SCREEN BOXES":COLOR 7,0:LOCATE 13,22:COLOR 7,0:PRINT"FUNCTION KEY SETUP AND LEAD IN TO MENU":LOCATE 14,22
  33. 210  PRINT"THENTHENTHENTHENTHENTHENTHENTHEN THENTHENTHEN THENTHENTHENTHENTHEN THENTHENTHEN THENTHENTHENTHEN THENTHEN THENTHEN THENTHENTHENTHEN":COLOR7,0:LOCATE3,8:COLOR7,0:PRINT"!!!":LOCATE20,8:PRINT"!!!":LOCATE3,70:PRINT"!!!":LOCATE20,70:PRINT"!!!":COLOR7,0:LOCATE17,26:PRINT"**** STANDBY FOR F KEYSET ****":FORI=1TO3000:NEXT
  34. 220  FORI=3TO20:LOCATEI,7:PRINTSPC(66):NEXT:FORA=18TO66:COLOR7,0:LOCATE6,A:PRINTCHR$(205):NEXT:LOCATE6,67:PRINTCHR$(187):FORB=7TO15:LOCATEB,67:PRINTCHR$(186):NEXT:LOCATE16,67:PRINTCHR$(188):FORC=66TO18STEP-1:LOCATE16,C
  35. 230  PRINT CHR$(205):NEXT:LOCATE 16,17:PRINT CHR$(200):FOR D=15 TO 7 STEP-1:LOCATE D,17:PRINT CHR$(186):NEXT:LOCATE 6,17:PRINT CHR$(201):COLOR 7,0:COLOR 7,0:LOCATE 8,37:PRINT"Developed by:":LOCATE 10,35:PRINT"G  I  N  A  C  O":COLOR 7,0:LOCATE 12,32
  36. 240  COLOR 7,0:PRINT"10708 Santa Fe Drive.":COLOR 7,0:LOCATE 13,30:COLOR 7,0:PRINT"SUN CITY,  ARIZONA  85351":COLOR 7,0:LOCATE 15,35:COLOR 7,0:PRINT"(602)  972-5559":COLOR 7,0:FOR I=1 TO 3000:NEXT:FOR I=3 TO 20:LOCATE I,7:PRINT SPC(66):NEXT
  37. 250  REM *** HEADER ***
  38. 260  LOCATE5,30:COLOR7,0:PRINT"BLUEBERRY PIE A La MODE":COLOR7,0:LOCATE8,27:COLOR7,0:PRINT"GENERAL STARTUP DEMONSTRATION":COLOR7,0:LOCATE11,19:COLOR7,0:PRINT"MAKE SURE THIS DISK IS IN DRIVE A: TO USE MENU ":COLOR7,0:LOCATE12,19:COLOR7,0
  39. 270  REMPRINT"THENTHENTHENTHEN THENTHENTHENTHEN THENTHENTHENTHEN THENTHENTHENTHEN THENTHEN THENTHEN THENTHENTHENTHEN  THEN  THENTHEN THENTHENTHEN THENTHENTHENTHEN ":COLOR 7,0
  40. 280  LOCATE15,21:COLOR7,0:PRINT"DO YOU WISH TO REVIEW THE F-KEY FUNCTIONS?":COLOR7,0:LOCATE18,20:PRINTSPC(40):LOCATE18,36:COLOR7,0:PRINT;CHR$(34)"Y"CHR$(34)" OR "CHR$(34)"N"CHR$(34):COLOR7,0:GOSUB110:IF(AKEY$="y"ORAKEY$="Y")THEN310ELSE290
  41. 290  IF(AKEY$="n"ORAKEY$="N")THEN380ELSE300
  42. 300  LOCATE18,29:PRINTCHR$(34)"Y"CHR$(34)" OR "CHR$(34)"N"CHR$(34)" ONLY, PLEASE":FORI=1TO1500:NEXT:SOUND1200,5:SOUND800,5:GOTO280
  43. 310  REM DESCRIPTION OF CUSTOM STARTUP
  44. 320  FOR I=3 TO 20:LOCATE I,7:PRINT SPC(66):NEXT:LOCATE 3,11:COLOR 7,0:PRINT"I: FUNCTION KEYS <10 KEYS AT LEFT SIDE OF KEYBOARD>":COLOR 7,0:LOCATE 5,15:COLOR 7,0:PRINT"<F1> = ";:COLOR 7,0:PRINT"CLEARS THE SCREEN -- DO NOT USE "CHR$(34)"<ENTER>"CHR$(34)
  45. 330  COLOR7,0:LOCATE6,15:COLOR7,0:PRINT"<F2> = ";:COLOR7,0:PRINT"RUN RESIDENT BASIC PROGRAM -- DO NOT USE "CHR$(34)"<ENTER>"CHR$(34):COLOR7,0:LOCATE7,15:COLOR7,0:PRINT"<F3> = ";:COLOR7,0:PRINT"CLEAR SCREEN AND LIST RESIDENT PROGRAM .":COLOR7,0
  46. 340  LOCATE8,15:COLOR7,0:PRINT"<F4> = ";:COLOR7,0:PRINT"SET UP FORMAT TO LOAD PROGRAM FROM DRIVE A: ":COLOR7,0:LOCATE10,15:COLOR7,0:PRINT"<F5> = ";:COLOR7,0:PRINT"SET UP FORMAT TO LOAD PROGRAM FROM DRIVE B: ":COLOR7,0:LOCATE11,15:COLOR7,0
  47. 350  PRINT"<F6> = ";:COLOR7,0:PRINT"CLEAR SCREEN AND LIST DESIGNATED LINES ":COLOR7,0:LOCATE13,15:COLOR7,0:PRINT"<F7> = ";:COLOR7,0:PRINT"LIST FILES ON DRIVE A:":LOCATE14,15:COLOR7,0:PRINT"<F8> = ";:COLOR7,0:PRINT"LIST FILES ON DRIVE B:
  48. 360  COLOR7,0:LOCATE16,15:COLOR7,0:PRINT"<F9> = ";:COLOR7,0:PRINT"FORMAT COMMAND TO SAVE A FILE ON DRIVE A:":COLOR7,0:LOCATE18,15:COLOR7,0:PRINT"<F10> = ";:COLOR7,0:PRINT"SET UP A "CHR$(34)" LIST . FORMAT"CHR$(34)" TO PAGE THRU A LISTING.
  49. 370  COLOR7,0:LOCATE20,23:COLOR7,0:PRINT"  PRESS ANY LETTER-KEY TO CONTINUE  ";:COLOR7,0:SOUND1000,5:GOSUB110:GOTO380
  50. 380  CLS:LOCATE10,24:COLOR7,0:SOUND1200,2:SOUND800,2:PRINT"CALLING UP BLUEBERRY A LA MODE MENU":FORI=1TO2000:NEXT:COLOR7,0:REM PRINTER LINE 6
  51. 390  REM **********************   KEY SET ROUTINE  ***************************
  52. 400  FOR I=1 TO 10:KEY I,"":NEXT:KEY 1,"CLS"+CHR$(13):KEY 2,"RUN"+CHR$(13):KEY 3,"CLS:LIST" + CHR$(13):KEY 4,"LOAD"+CHR$(34)+"A"+CHR$(58):KEY 5,"LOAD"+CHR$(34)+"B"+CHR$(58):KEY 6,"CLS:LIST ":KEY 7,"FILES"+CHR$(13)
  53. 410  KEY 8,"FILES"+CHR$(34)+"B"+CHR$(58)+"*.*"+CHR$(34)+CHR$(13):KEY 9,"SAVE"+CHR$(34)+"A"+CHR$(58):KEY 10,"LIST . -":KEY ON:ON ERROR GOTO 450
  54. 420  GOTO440
  55. 440  KEY OFF:LOAD"A:BLUEMENU.BAS",R
  56. 445  ON ERROR GOTO 450
  57. 450  FORI=3TO20:LOCATEI,10:PRINTSPC(66):NEXT:CLS:PRINTSTRING$(80,219):COLOR7,0:FORA=1TO22:LOCATEA,1:PRINT"CSRLIN":LOCATEA,80:PRINT"CSRLIN":NEXT:LOCATE23,1:PRINTSTRING$(80,219);:LOCATE5,30:COLOR7,0:PRINT"N   O   T   I   C   E ":COLOR7,0
  58. 460  LOCATE6,30:COLOR7,0:PRINT"=   =   =   =   =   =":COLOR7,0:LOCATE10,11:COLOR7,0:PRINT"THE BLUEBERRY A LA MODE MENU IS NOT ON THE DISK IN DRIVE A:":COLOR7,0:KEYON:LOCATE15,21:COLOR7,0:SOUND1200,5:SOUND800,5
  59. 470  PRINT"PLEASE MOUNT PROPER DISK AND HIT RETURN ":LOCATE 17,39:PRINT"x";:LINE INPUT A$:COLOR 7,0:RESUME 440
  60. 480  END
  61. 65000  REM ************************  SAVE ROUTINE  *****************************
  62. 65100  SAVE"B:STARTUP.BAS
  63.